function [acc] =  calacc(Ypr,Yor)
acc = sum((Ypr==Yor))/size(Yor,1);
end